home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 116 / Tiger_Disk_116_2003_Tiger-Crew-Disk_de_Side_B.d64 / tennis 2 (.txt) next >
Commodore BASIC  |  2023-02-26  |  8KB  |  185 lines
  1. 10 rem tennis  teil 2
  2. 12 rem
  3. 14 rem
  4. 16 rem
  5. 18 rem
  6. 20 rem
  7. 22 rem
  8. 35 v=53248:si=54272:cs=58732:a$=" 0153040 v":sa=1:au=1:dimmu(26,2)
  9. 40 print"[147]":poke214,10:syscs:print"  bitte warten sie einen augenblick bis "
  10. 45 print"   alle daten eingelesen worden sind   ":pokev+21,0
  11. 50 rem
  12. 55 rem
  13. 60 rem
  14. 70 fora=28672to28692:pokea,0:next
  15. 80 fora=0to64*7-1:readb:poke2048+a,b:next
  16. 95 fora=24576to25609:readb:pokea,b:next
  17. 100 poke2040,32:poke2041,34:poke2042,36:poke2043,37:poke2044,38
  18. 105 pokev+37,7:pokev+38,0:pokev+39,2:pokev+40,6:pokev+41,9:pokev+42,9
  19. 110 pokev+23,3:pokev+28,3:pokev+43,7:poke28674,1:poke28675,0:poke28672,8
  20. 115 poke28673,8:poke28683,0
  21. 385 rem
  22. 390 rem
  23. 395 rem
  24. 400 pokev+16,0:print"[147]";:pokev+32,5:pokev+33,5
  25. 405 pokev+1,60:pokev+3,60:pokev+5,60:pokev+7,60:pokev,82:pokev+4,91
  26. 410 pokev+2,255:pokev+6,247:pokev+21,15
  27. 415 pokesi+24,15:pokesi+5,0:pokesi+6,240:pokesi+4,129:fora=0to87:print""
  28. 420 printtab(12)"[162][162][187][162][162][172][187][172][172][187][172][172] [162][187]"
  29. 425 printtab(12)" [161] [188][146][162][161][161][161][161][161][161][161][146][188][162][187]"
  30. 430 printtab(12)" [161] [188][146][162][161][146]  [161][146]  [161][146] [162][191]":pokesi+1,100-a:poke646,a:next
  31. 435 pokesi+4,0:input"[144]name spieler 1";na$(1):input"name spieler 2";na$(2)
  32. 440 na$(1)=chr$(18)+na$(1):na$(2)=chr$(18)+na$(2)
  33. 445 print"sie koennen zwischen 3 schwierigkeits-  graden waehlen"
  34. 450 print"1) anfaenger":print"2) fortgeschrittener":print"3) profi"
  35. 460 getin$:ifin$<"1"orin$>"3"thengoto460
  36. 465 poke24721,(53-asc(in$))*2+1
  37. 470 print"viel glueck...das match beginnt !"
  38. 475 pokesi+5,5:pokesi+6,0:pokesi+24,15:pokev+21,0
  39. 500 print"[147]";
  40. 510 fora=0to4:print"[144]                                      ";:next:gosub1500
  41. 550 poke211,0:poke214,7:syscs:poke646,1
  42. 555 print"[146]   [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][186][204][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]  "
  43. 560 print"   [165]       [165]       [170][180]       [167]       [167]  "
  44. 565 print"  [167]        [165]       [170][180]       [167]        [165] "
  45. 570 print"  [200]       [167]        [170][180]        [165]       [165] "
  46. 575 print"  [199]       [167]        [170][180]        [165]       [199] "
  47. 580 print"  [165]       [167]        [170][180]        [165]       [167] "
  48. 585 print"  [165]       [167]        [170][180]        [165]       [167] "
  49. 590 print" [167]        [170][185][185][185][185][185][185][185][185][186][204][185][185][185][185][185][185][185][185][165]        [165]"
  50. 595 print" [200]        [167]        [170][180]        [165]        [199]"
  51. 600 print" [217]        [212]        [170][180]        [217]        [199]"
  52. 605 print" [217]        [212]        [170][180]        [217]        [199]"
  53. 610 print" [199]        [212]        [170][180]        [217]        [200]"
  54. 615 print" [212]        [212]        [170][180]        [217]        [217]"
  55. 620 print" [212]        [165]        [170][180]        [167]        [217]"
  56. 625 print" [180]        [165]        [170][180]        [167]        [167]"
  57. 630 print" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  58. 1000 gosub1500:sys24988: ifpeek(28676)=130thens=2
  59. 1010 ifpeek(28676)=2thens=1
  60. 1020 ifpeek(28683)=1thenpu(s)=pu(s)+1
  61. 1030 ifpeek(28683)=255thens=3-s:pu(s)=pu(s)+1
  62. 1035 ifpu(s)=4andpu(3-s)<3thengoto1100
  63. 1060 ifpu(3-s)=4thenpu(s)=pu(s)-1:pu(3-s)=pu(3-s)-1
  64. 1070 ifpu(s)=5thengoto1100
  65. 1090 goto1000
  66. 1100 pu(1)=0:pu(2)=0:poke28673+au,0:poke28673+3-au,1:au=3-au
  67. 1105 sp(s,sa)=sp(s,sa)+1
  68. 1110 ifsp(s,sa)<6orsp(s,sa)<sp(3-s,sa)+2andsp(s,sa)>sp(3-s,sa)-2thengoto1000
  69. 1115 sa=sa+1:sa(s)=sa(s)+1
  70. 1120 ifsa(s)=2orsa(3-s)=2thengoto2000
  71. 1125 goto1000
  72. 1500 poke28683,0:print"[144]";:fora=1to2:printna$(a);:poke211,20:syscs:forb=1to3
  73. 1505 pu$(a)=chr$(18)+mid$(a$,pu(a)*2+1,2)
  74. 1515 ifsa>=bthenprint""sp(a,b);
  75. 1520 next:poke211,33:syscs:printpu$(a);:poke211,36:syscs:ifau=athenprint"[209]"
  76. 1525 ifau<>athenprint" "
  77. 1530 poke214,3:syscs:next:return
  78. 2000 pokesi+5,0:pokesi+6,240:pokesi+24,15:sa=sa-1:gosub1500
  79. 2010 fora=0to25:pokesi+1,mu(a,0):pokesi,mu(a,1):d=mu(a,2):pokesi+4,33
  80. 2020 forb=0tod:next:pokesi+4,0:next
  81. 2030 fora=1to2:ifsa(a)<2thengoto2100
  82. 2040 fora1=0to10:poke211,0:poke214,a*2-1:syscs:printna$(a):forb=0to300:next
  83. 2050 poke211,0:poke214,a*2-1:syscs:printmid$(na$(a),2):forb=0to300:next:next
  84. 2100 next:sa=1:fora=1to2:forb=1to3:sp(a,b)=0:next:next:sa(1)=0:sa(2)=0
  85. 2110 pu(1)=0:pu(2)=0
  86. 2150 poke211,0:poke214,23:syscs:print"wollen sie noch einmal spielen ?
  87. 2160 [151]198,0:[146]198,1:[161]in$:[139]in$[178]"j"[167][137]400
  88. 2170 [137]2170
  89. 49985 :
  90. 49990 [143] *** laufender spieler 1 ***
  91. 49995 :
  92. 50000 [131]0,3,252,0,3,212,0,3,84,0,3,84,0,10,128,0,42,128,0,42,128,0,42,128
  93. 50010 [131]0,42,168,0,42,170,0,21,64,0,21,80,0,84,80,0,80,20,53,80,84,53,64,80
  94. 50020 [131]48,0,208,0,0,48,0,0,12,0,0,0,0,0,0,0
  95. 50030 :
  96. 50035 [143] *** stehender spieler 1 ***
  97. 50040 :
  98. 50050 [131]0,3,252,0,3,212,0,3,84,0,3,84,0,10,128,0,42,128,0,42,128,0,42,128
  99. 50060 [131]0,42,168,0,42,170,0,21,64,0,21,64,0,21,64,0,20,80,0,21,80,0,85,64
  100. 50070 [131]0,208,64,0,49,64,0,15,224,0,0,0,0,0,0,0
  101. 50080 :
  102. 50085 [143] *** laufender spieler 2 ***
  103. 50090 :
  104. 50100 [131]63,192,0,23,192,0,21,192,0,21,192,0,2,160,0,2,168,0,2,168,0,2,168,0
  105. 50110 [131]42,168,0,170,168,0,1,84,0,5,84,0,5,21,0,20,5,0,21,5,92,5,1,92,7,0,12
  106. 50120 [131]12,0,0,48,0,0,0,0,0,0,0,0,0
  107. 50130 :
  108. 50135 [143] *** stehender spieler 2 ***
  109. 50140 :
  110. 50150 [131]63,192,0,23,192,0,21,192,0,21,192,0,2,160,0,2,160,0,2,168,0,2,168,0
  111. 50160 [131]42,168,0,170,168,0,1,84,0,1,84,0,1,84,0,5,20,0,5,84,0,1,85,0,1,71,0
  112. 50170 [131]1,76,0,15,240,0,0,0,0,0,0,0,0
  113. 50180 :
  114. 50185 [143] *** schlaeger ***
  115. 50190 :
  116. 50200 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,0,0,9,0,0,17
  117. 50210 [131]0,0,17,0,0,17,0,0,17,0,0,18,0,0,28,0,0,16,0,0,32,0,0,32,0,0,64
  118. 50220 [131]0,0,64,0,0,0,0,0,0,0
  119. 50230 :
  120. 50235 [143] *** schlaeger ***
  121. 50240 :
  122. 50250 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,96,0,0,144,0,0,136,0,0,136,0,0
  123. 50260 [131]136,0,0,136,0,0,72,0,0,56,0,0,8,0,0,8,0,0,4,0,0,4,0,0
  124. 50270 [131]2,0,0,2,0,0,0,0,0,0
  125. 50280 :
  126. 50285 [143] *** ball ***
  127. 50290 :
  128. 50300 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0,0,60,0
  129. 50310 [131]0,60,0,0,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  130. 59985 [143]
  131. 59990 [143] *** datas fuer m-code ***
  132. 59995 [143]
  133. 60000 [131]169,224,141,2,220,169,1,141,8,112,173,0,220,168,201,127,240,27,206
  134. 60001 [131]0,112,173,0,112,208,19,162,32,173,248,7,201,32,208,2,162,33,142,248
  135. 60002 [131]7,169,8,141,0,112,152,41,1,208,3,32,4,97,152,41,2,208,3,32,18,97
  136. 60003 [131]152,41,4,208,3,32,32,97,152,41,8,208,3,32,46,97,173,1,220,168,201
  137. 60004 [131]255,240,27,206,1,112,173,1,112,208,19,162,34,173,249,7,201,34,208
  138. 60005 [131]2,162,35,142,249,7,169,8,141,1,112,152,41,1,208,3,32,60,97,152,41
  139. 60006 [131]2,208,3,32,74,97,152,41,4,208,3,32,88,97,152,41,8,208,3,32,122,97
  140. 60007 [131]162,9,160,16,136,208,253,202,208,250,32,1,99,206,8,112,240,3,76,10
  141. 60008 [131]96,238,12,112,174,12,112,224,3,208,5,162,0,142,12,112,189,255,96
  142. 60009 [131]141,8,112,32,125,99,169,0,141,30,208,32,1,99,32,166,98,32,1,99,173
  143. 60010 [131]11,112,240,8,169,255,141,2,220,169,0,96,32,202,99,76,10,96,0,0,0
  144. 60011 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,0,0,0,0,0,1,1,2
  145. 60012 [131]0,0,173,1,208,201,80,240,6,206,1,208,206,5,208,96,173,1,208,201,208
  146. 60013 [131]240,6,238,1,208,238,5,208,96,173,0,208,201,24,240,6,206,0,208,206
  147. 60014 [131]4,208,96,173,0,208,201,162,240,6,238,0,208,238,4,208,96,173,3,208
  148. 60015 [131]201,80,240,6,206,3,208,206,7,208,96,173,3,208,201,208,240,6,238,3
  149. 60016 [131]208,238,7,208,96,173,2,208,201,184,240,26,206,2,208,16,8,173,16,208
  150. 60017 [131]41,253,141,16,208,206,6,208,16,8,173,16,208,41,247,141,16,208,96
  151. 60018 [131]173,2,208,201,64,240,26,238,2,208,48,8,173,16,208,9,2,141,16,208
  152. 60019 [131]238,6,208,48,8,173,16,208,9,8,141,16,208,96,169,15,141,21,208,169
  153. 60020 [131]15,141,24,212,169,192,141,1,208,141,5,208,169,96,141,3,208,141,7
  154. 60021 [131]208,169,224,141,2,220,169,10,141,16,208,169,24,141,0,208,169,32,141
  155. 60022 [131]4,208,169,64,141,2,208,169,55,141,6,208,173,0,220,168,41,1,208,10
  156. 60023 [131]173,1,208,201,168,240,3,32,11,97,152,41,2,208,3,32,18,97,152,41,16
  157. 60024 [131]208,8,173,2,112,240,3,76,47,98,173,1,220,168,41,1,208,3,32,60,97
  158. 60025 [131]152,41,2,208,10,173,3,208,201,120,240,3,32,81,97,152,41,16,208,8
  159. 60026 [131]173,3,112,240,3,76,91,98,162,16,160,255,136,208,253,202,208,250,76
  160. 60027 [131]212,97,173,0,208,24,105,24,141,8,208,173,1,208,141,9,208,169,31,141
  161. 60028 [131]21,208,173,16,208,41,239,141,16,208,169,2,141,4,112,169,129,141,5
  162. 60029 [131]112,32,135,98,76,0,96,173,2,208,56,233,26,141,8,208,173,3,208,141
  163. 60030 [131]9,208,169,31,141,21,208,173,16,208,9,16,141,16,208,169,130,141,4
  164. 60031 [131]112,169,1,141,5,112,32,135,98,76,0,96,169,5,141,1,212,169,0,141,5
  165. 60032 [131]212,169,247,141,6,212,169,129,141,4,212,169,128,141,4,212,169,0,141
  166. 60033 [131]13,112,96,173,4,112,48,23,173,8,208,24,109,4,112,141,8,208,208,8
  167. 60034 [131]173,16,208,9,16,141,16,208,76,222,98,56,233,128,141,6,112,173,8,208
  168. 60035 [131]56,237,6,112,141,8,208,201,254,208,8,173,16,208,41,239,141,16,208
  169. 60036 [131]173,5,112,48,13,173,9,208,24,109,5,112,141,9,208,76,1,99,56,233,128
  170. 60037 [131]141,7,112,173,9,208,56,237,7,112,141,9,208,96,173,30,208,168,201
  171. 60038 [131]20,208,3,76,21,99,152,201,24,208,3,76,73,99,96,169,2,141,4,112,173
  172. 60039 [131]30,208,32,3,100,173,0,220,168,201,127,240,27,152,41,9,208,6,169,129
  173. 60040 [131]141,5,112,96,152,41,10,208,6,169,1,141,5,112,96,152,41,8,208,5,169
  174. 60041 [131]0,141,5,112,96,169,130,141,4,112,173,30,208,32,3,100,173,1,220,168
  175. 60042 [131]201,255,240,27,152,41,5,208,6,169,129,141,5,112,96,152,41,6,208,6
  176. 60043 [131]169,1,141,5,112,96,152,41,4,208,5,169,0,141,5,112,96,173,4,112,48
  177. 60044 [131]11,173,8,208,201,184,208,3,32,152,99,96,173,8,208,201,160,208,3,32
  178. 60045 [131]152,99,96,141,5,212,169,243,141,6,212,169,10,141,1,212,169,129,141
  179. 60046 [131]4,212,169,128,141,4,212,169,255,141,13,112,173,9,208,201,100,176
  180. 60047 [131]5,169,255,141,11,112,201,215,48,32,169,255,141,11,112,96,173,9,208
  181. 60048 [131]201,70,240,33,201,235,240,29,173,16,208,41,16,208,7,173,8,208,201
  182. 60049 [131]4,144,15,173,16,208,41,16,240,7,173,8,208,201,80,240,1,96,173,13
  183. 60050 [131]112,208,6,169,255,141,11,112,96,169,1,141,11,112,96,32,135,98,32
  184. 60051 [131]166,98,96
  185.